Top 10k strings from French Mistress, The - Level A (1984)(Kosmos Software)[needs tape load].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 ;"STOP THE TAPE"
   2 ;"Filename=
   2  (F or E)"
   1 type X to delete current entry
   1 type END to terminate lessonJ
   1 t()=(65536
   1 fvf~vfffvfff
   1 c=m-(L5+LC):
   1 Z$="type X to delete current entry"
   1 Y$="Save lesson"
   1 X$="THE FRENCH MISTRESS"
   1 W$="Test lesson"
   1 W$;''"RESULTS:";'"
   1 Verify saved lessonP
   1 V$="Key space to continue"
   1 U$="(Y or N)"
   1 Test lessonX
   1 THE FRENCH MISTRESSZ
   1 TE=(P-MN)+1
   1 T$="English"
   1 Save lessonN
   1 S$="French"
   1 Run lessonY
   1 R$="Insert new entry"
   1 Q$="Delete entry from lesson"
   1 P$="Add to current lesson"
   1 N$="Verify saved lesson"
   1 Load pre-recorded lessonL
   1 L,N;"    "
   1 L$="Run lesson"
   1 Key space to continueW
   1 K$="Load pre-recorded lesson"
   1 J$="Create new lesson"
   1 Insert new entryS
   1 Delete entry from lessonR
   1 D$="type END to terminate lesson"
   1 Create new lessonK
   1 CONTROL   TP$
   1 Add to current lessonQ
   1 ;T$;"  = ":
   1 ;S$;"  = ":
   1 ;P;" Entry in lesson store"
   1 ;P;" Entries in Lesson Store"
   1 ;;"-REWIND AND THEN START TAPE TO   BEGIN VERIFICATION-";
   1 ;'''" -IF VERIFICATION FAILS:-";''"   -STOP AND REWIND THE TAPE";''"   -RESTART PROGRAM BY KEYING";'"
   1 ;"V = ";N$
   1 ;"Title: "
   1 ;"STOP THE TAPE";
   1 ;"STOP  THE  TAPE ":
   1 ;"S = ";Y$
   1 ;"Press key X to avoid erasing"''"Current lesson or..."
   1 ;"PLEASE WAIT
   1 ;"M or F ? ="
   1 ;"LESSON STORE EMPTY"
   1 ;"Insertion Complete
   1 ;"Insert Before Entry No.?    "
   1 ;"Gender = "
   1 ;"GOTO 1 THEN ENTER";''
   1 ;"Filename:"
   1 ;"Filename =
   1 ;"Entry: ";X;"   Key X to exit or..."
   1 ;"Entry to delete  =   ":
   1 ;"Entry No. = ";(P+1
   1 ;"Entry Deleted
   1 ;"Entries: ";
   1 ;"Delete?   ";U$
   1 ;"Correct Entry   (Y OR N)"
   1 ;"Auto Repeat Lesson?
   1 ;"****FILE FULL****"
   1 ;"(Symbol shift T)";'''
   1 ;"   START THE TAPE TO BEGIN"''
   1 ;"   -REPEAT SAVE COMMAND"
   1 ****DISPLAY****
   1 ((tmf-tms)/3000
   1 ((TMF-TMS)/3000
   1 (((TMF-TMS)-(3000
   1 ''''"Display ";T$;" or ";S$;" first?
   1 '''"TOTAL ENTRIES    ";P;''"TEST ENTRIES
   1 ''"START AT ENTRY No.?";"(1
   1 ''"HOW MANY ENTRIES?  ";"(1 
   1 ''"Do you wish to answer in";''"FRENCH or ENGLISH?
   1 ''"Display time (";S$;")
   1 '"If you require help press the >";'' "key ";
   1 '" V = ";N$
   1 '" T = ";W$
   1 '" S = ";Y$
   1 '" R = ";L$
   1 '" L = ";K$
   1 '" I = ";R$
   1 '" D = ";Q$
   1 '" C = ";J$
   1 '" A = ";P$
   1 "Lesson saved":
   1 "Lesson Loaded From Tape O.K."
   1 "LESSON VERIFIED O.K."
   1  SEARCH FOR  LESSON "
   1  ";TN;''"WRONG ANSWERS    ";Q5;''"HELP key Presses ";R5;''"TIME TAKEN